home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGMISC
/
MODULTUB.LZH
/
REALTRIG.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
746b
|
38 lines
(* Chapter 3 - Program 5 *)
MODULE RealTrig;
FROM InOut IMPORT WriteString, WriteLn;
FROM RealInOut IMPORT WriteReal;
FROM MathLib0 IMPORT sin, cos, entier, real; (* Your system may use
a different name for either the
module or the functions. *)
VAR A, B : REAL;
Index : INTEGER;
BEGIN
A := 0.5;
B := sin(A)*cos(A);
WriteString("The Trig values are ");
WriteReal(A,12);
WriteString(" ");
WriteReal(B,12);
WriteLn;
Index := entier(14.0 * A);
A := real(Index);
END RealTrig.
(* Result of execution
The Trig values are 5.0000E-001 4.2074E-001
*)